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(54)Title: APPARATUS FOR PRODUCING SOFTWARE AND METHOD FOR PRODUCING SOFTWARE 



(57) Abstract 

To automatically produce software in any field by using only a 
mechanical algorithm without relying on the individual ability of the SE such 
as experience, knowledge and ability for adaptation, a W04 phase element, a 
W04 logical element, a W02 logical element, a W03 phase element, a W03 
logical element, and a pallet function for which derivation data for deriving a 
defined body identifier, a word identifier, a processing path, and a preset 
value are not defined are stored in advance, and a defined body identifier, a 
word identifier, a processing path, and derived data are inputted for each word 
and buried in predetermined positions in the undefined W04 phase clement, 
W04 logical element, W02 logical element, W03 phase element, W03 logical 
element, and pallet function. The invention is useful to produce and maintain 
software. 
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*: % f§ la 3 (C ifs L /z /I U V h Bl ^ . EI 4 ~ (3 7 ir tk L ffi ffl ^ * & 
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H 8 iZ^tet^T. 8 0 1 «ia4 ~0 7 {C^Lfc^affiM^. HSg^&UC 
m 1 (7)IStig|5. 8 0 2 fS/^l/y hjglBMi&fC^S^P^^ A^^46S2ti 

-r-5m2 ofsitgp, 8 0 3 ogB5^-. " mmm^" 

Sfc. 8 0 4 (aA:^HI58 0 3 TA^'j^tlAc" ^ CD g e ODgC 

" mmm^" (Dm^Rzf" d. i" i rosBitgis s o 2 inett^ 
vmVL\z%^-:r u ^ nv V KillSKScicM^JitrajAgB, 8 0 6 

(XT--yT9 0 2) „ EI10{ir>i^$n/iinilj(0 — f^^JTfe-So UlOW 
iiiiijlCxX7^A^--^;'j:f£.-tC0,i,1ligiJ^. fi^J;^(i" GSOI 0 8" t.^^ 
-3 AcAt-af^^SU^ ^SS^T^o Sfc. 121 1 0 lI*3^^T;&^illJ(7)'^•tfr1lix- 
l 8 
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MENUJ ) ^^ik^ ^ ii^<DmmX(Dfl!liSi^^ ( T - ^ — N O = n + 

ENTERj , Ti^Tj (Dmm±<Dmnmm) fj^^-AiziH-wf^mm m 

- i — ia®G S MENUJ f)^iE>lt ^f^^M^mmG SOI 0 8J 

<D^.T^^ r->x^AHIlj . rjr^i^Ba^jiigiG s o I 0 8 J ;i^btt 

ritTJ ®$iJiai^iS!;ctoT^-:i— Hi® GS MENUJ '\<75«i)io ) 

mi 1 l'*5 UT. r G S M E N Uj CD T « fw 0 4 J illHSs^SiJ^ G 
S M E N U 75M«J- $ Ac W 0 4 /t 1/ -y h T 0 , 3 CO W 0 y h J; 

•:3T;<:^zi.-iiiffiGSMENU7i^'jefijc$tl.5o 

res MENUJ COT<75 rw 0 2 J iiHrflisS^SU^G S M E N U7)q^$ 
tlAcWO 2/1U>y h-e$>0 . 3(75 WO 2 /t U v h I; J: o TMIiM!J§75^'jfe 

$ tl S . 

rc s o I 0 8 J (Dy(D rw o 4 j (Siii®i,tsij-TG s o i o s 

tlfzWO 4 U •> h T 0 . Z W 0 4 y t U -y h (3 J; T ?5 ifi? M ^ H ® 
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GSO I 0 S(D^-:^y ^ -)],\i\zm^T^'T-i5^f}m^^n^o 

rcso I 0 8j (DT(D rwo 2J ^HSiESU^ G S O I 0 8^U^^ 
nfcWO 2 /lUv rcOWO 2 A" U H J: o T ® IIMSS 75^^ 

rwo 3 J ttv'X-J-AtC-iacDWO 3 A U hTfe D , Z<DW0 3/t 

hco^iffig^. mm m (D mn "^i^Trnwim^ mm G so i o s ii 

rPSHINFILj rpMOTOFILjo TFSHINFILjti, 

m^-^my 7 -1 )V] (D'^m{^mm^^M^\.. ffmotofilj 
T -r « M s Mss 0 sbjzB r -5 o 

PSfc. r I o-WO 4 -RK 1 -SECJ tli, m^-^my7'i)ui 

r I o-wo 4 -RD 1 - s E cj tfi, rfs#5£iis:7 juj 75.5,5-- 
-i5'2:'j-H-r'5wo 4/tu-y h ±<D^ y jv-^ ymm^FT & ^ . r i 

O - W 0 2 - R K 1 - S E C J m^-^my7-<Jli ^^ibT^-^ 

^ U - H -r ^ W 0 2 A° U -y h ± (D tf- y ;U - 5^ > ligij^ -e -s „ r I o - 
W03-RK1-SECJ tit. m^-^my 7 )l J <b y-' - ^ ^ U 

- Hf^vvo 3 .y h±cD-+fy;i.-5^>sS]!SiJ^T*>-5o r I o-wo 

3 RDI-SECJ tit. ^m^Ttmy 7 ^ )l] ti-^^'r- ^ -^^i - y 
t-^W 0 3 /N' U -y h i:(75-ti-y;U-f^>fig!iSiJ^T*-5„ a±fiia 1 
T t$ T * „ 
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9 0 4 ) . 'tn^'n<Dmmizmm^'^m^-r^ (xy^yrsob) , m 

r«lTj fC^t LT^Igi^SiJ^i: LT'PASSNOr, " CLNAME" . "YOKNZAN", 
■MSSGCDl". 'PF25KEr. ' PFSKEY' ^ IS Jgi" ^ „ 

^m^Tit. mmmmf- (id) (Z)A:t»ff*i. mm^^oyxtim. mm 
^- ^^^Atim^^^mtimit:^'^ (i/o) . ^—^(Dm^. T'-^m-tt 

;u^^iiLTii^„ ) , iaa^ss (r-no) . ^m^^m^^m^\zn 
mLfzmt'^^-mn (F-KEY) . :-kmmmi\=f-. w-m^m (x-^ 

JSglKS. T-'-:$'75^A;'3M'[tCD^^{C«L YE ^(DW-WAZ^ 0 gffijStlt; 

i;X-r^;5^fctt> $:tS^t-§o J;0*{*Wtcfi, r 7 7 -f ;kd (bI - ^ m§ (t: 
CO - T -I) „ 
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mmm^(oxt>mmizit. ±mLrzmmmm (r=i~5) ^i&^r 

•Bo 

^fz. *fgBjTv^^ mmmmi -hiso^^iJiMss (r-no) , 
mm^-mn (f-key) Rzj^:kmmmwi^izmmr?>, 

^fi£$*fT-r^ i7.y^yZf 9 0 7 ) „ 

n(X^-yyi301). gO/^fiJcCD^ff 75^;5:$n-5 t y 1 3 

0 2). ilJiXgUS 0 4 7i^m 1 OIBIggiJS 0 1 <=, " 

ogu^i-, •• msm^" ogB^sDC" i" mm 

-etl iii*ji^tl-5 (Xr--yyi 3 04) „ 
^ « ^ $ M l; gJi aj! -r -5 o 

* 

if 

L-W03-§XJ6&-@%198-SEC SECTION. 
l-mZ-%% 1 6@-@« 1 9@-START. 
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*--< mmm^ >— 

IF @%I6@-@S!19@ OF W03 NOT = @!i;20§ 

GO TO L-W03-@%16©-@X19@-EXIT 
END-IF. 
--< g5:tfi5c >— 

--< XtlM&CDt^ W0 2Srir>yh >— 

MOVE @%im-®%\9@ OF WO 2 
TO §X166-@X198 OF W03. 

--< mtiMiicDt^ , y 7 Jiizm- mm ^^$>tni^z7!}^ 
e^fiSc >— 

MOVE G#####-***** OF W03 

TO F#####-t»»** OF F#####-REC. 
PERFORM I0-W03-RD*-SEC. 
IF RD*-INVS = • IV" 

MOVE @«20@ TO @^16@-i«I98 OF W03 

ELSE 

MOVE F#####-8%198 OF F#####-REC 

TO @X16i-@«19§ OF W03 

END-IF. 

COMPUTE §^16@-@!819@ OF W03 

= ###-### OF W03 
+ ***-*** OF W03. 

-< BZtLW^ >— 

IF <s%i&%-mM OF W03 = §%-m 

* OR OF W03 > 0 

2 3 
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ADD 1 TO 8!l516@-8S;i9e-CNT 
IF 6!i:i6@-@!i;i9@-CNT < RECALL-MAX 
MOVE ' r TO RECALL-FIG 

ELSE 

MOVE T TO @!S168-§3;i9@-NON 
END-IF 
END-IF. 
L-W03-8X 1 68-@!K 1 9@-EXIT. 
EXIT. J 

@% 8 ©itmm^w. 

@% 1 9 ©fi^gggSS'J^. 

F # # # # #ity y JUT ^iix(D^- 1 fx ^mmi^m^n^ 
G#####{S7-r )U)U7 ^ ■^T.cD^^-a^'b t tu^mm^^w^-r^m 

RD * UTi^-fexfS :7 7"f ;Ki?=t;KL;t-y-yjl.-5^>lzBJWT-i.gSESiJ 



^LT. m 1 2 L;taiSgcD 

mm^V}^(Dmf}^@ % 8@ 
mmmm=r-<^m^@% i 9 @ 
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m^(Dmf)^®% 2 0® 

MOVE 8%I6@-6XI9e OF W02 
TO 9%\6§-@%m OF W03. 



>-- 



MOVE G#####-***** OF W03 

TO F#####-***** OF F#####-REC. 
PERFORM 10-W03-RD*-SEC. 
IF RD+-INVS = "IV" 

MOVE @%20@ TO i«16§-@X19g OF W03 

ELSE 

MOVE F#####-@X19@ OF F#ff###-REC 

TO @«16@-8^19i OF W03 

END-IF. 

--< ii^timfk(D^^ i\ii(Dmmt(7)mw-TS^±!^ >— 

COMPUTE OF W03 

* = ###-### OF W03 

* + OF W03. 

Z CO o 



< A ,hmi±COt-§ W 0 2 ^ -t h >— 
* MOVE @XI6@-@«19@ OF WO 2 

2 5 
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* TO iX16e-exi9@ OF W03. 
■f)^ — ■$r :n 7 (D. i, Wn) - 1 (D'r — ^"r — ^ Jl*J 7 (D, i, 

Wn) iz^r-:^aif^ AU^, 



s^kk >— 

* move g#####-**»** of w03 

* to ?#####-***** of f#####-rec. 

* perform i0-w03-rd*-sec. 

* if rd*-invs = • iv 

* MOVE @X20@ TO @X16e-@XI98 OF W03 

* ELSE 

* MOVE F#####-@!l!19e OF F»###»-REC 

* TO @X168-@X19@ OF W03 

* END-IF. 



* COMPUTE @«16@-@^196 OF W03 

* = #»#-### OF W03 

* + OF W03. 



fdi O m lg « y - ^ 1^ » T- 5"' - ^ $ a cl ^lE c5c T -S ■/ □ ^ ^ A g|5 5t ^ 
^ L T ■5 o 
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l^m^M(0^m. @%8@, @%16@. @%19@, @%20@. # 

####. #####. ****J|C^ ### — ###, — * 

♦ 

* 

L-W03-GSOI08-PASSN01-SEC SECTION. 
L-W03-GSO I 08-PASSNO 1 -START. 

*— < ^mnm >— 

IF CSOI08-PASSN01 OF W03 NOT = LOW-VALUE 

GO TO L-W03-GSOI08-PASSNO1-EXIT 
END-IF. 
*— < ge^feBK >— 

*— < At]mfi.(D W 0 2 -v h >— 

MOVE GSOI08-PASSN01 OF W02 

TO GSOI08-PASSN01 OF W03 

*— < fi)cji#iJ^ >— 

IF GS0I08-PASSNO1 OF W03 = LOW-VALUE 
OR GSOI08-PASSN0I OF W03 > 0 

ADD 1 TO GSOI08-PASSN01-CNT 
IF GS0108-PASSN01-CNT < RECALL-MA.X 
MOVE ■ r TO RECALL-FLG 

ELSE 

2 7 
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MOVE T TO GSOI08-PASSN01-NON 
END-IF 
END-IF. 

L-W03-GSOI08-PASSN01-EXIT. 
EXIT. 



L-W03-GSOI08-CLNAME-SEC SECTION. 
L-W03-GSOI08-CLNAME-START. 

*— < ^Mmm >— 

IF GS0I08-CLNAME-XX OF W03 NOT = ALL ' 9" 



END-IF. 



MOVE G S0I08- PASSNOl OF W03 

TO FMOTOFIL- PASSNOl OF FMOTOFI L-REC. 
PERFORM IO-W03-RD1-SEC. 
IF RDl-INVS = "ir 



ELSE 

MOVE FMOTOFIL-CLNAME OF FMOTOFI L-REC 

TO GSOI08-CLNAME OF ff03 
2 8 



TO L-W03-GS0I08-CLNAME-EXIT 



MOVE ALL '9" 



TO GSOI08-CLNAME-XX OF ff03 
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END-IF. 
*— < S^iLn^ >— 

IF GSOI08-CLNAME-XX OF W03 = ALL ' 9' 
OR GS0I08-CLNAME-XX OF ff03 > 0 
ADD 1 TO GSOI08-CLNAME-CNT 
IF GS0I08-CLNAME-CNT < RECALL-MAX 
MOVE "1" TO RECALL-FLG 

ELSE 

MOVE "1" TO GS0I08-CLNAME-N0N 
END-IF 
END-IF. 

L-W03-GS0I08-CLNAME-EXIT. 
EXIT. 

♦ 

* 



L-W03-GSOI08-YOKNZAN-SEC SECTION. 
L-W03-GSOI08-YOKNZAN-START. 

*— < mmm^ >— 

IF GSOI08-YOKNZAN OF W03 NOT = LOW-VALUE 

GO TO L-W03-GSOI08-YOKNZAN-EXIT 
END-IF. 
< [^e^Cic > — 
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MOVE G SOI 08- PASSNOl OF W03 

TO FMOTOFIL- PASSNOl OF FMOTOFIL-REC. 
PERFORM IO-W03-RD1-SEC. 
IF RDl-INVS = " IV' 

MOVE ALL '9' TO GS0I08-CLNAME-XX OF W03 

ELSE 

MOVE FMOTOFIL-YOKNZAN OF FMOTOFIL-REC 

TO GS0108-Y0KNZAN OF W03 

END-IF. 

*—< iis.iLmm >— 

IF GS0I08-Y0KNZAN OF W03 = LOW-VALUE 
OR GS0I08-Y0KNZAN OF W03 > 0 

ADD 1 TO GSOI08-YOKNZAN-CNT 
IF GS0I08-Y0KNZAN-CNT < RECALL-MAX 
MOVE • 1" TO RECALL-FLG 

ELSE 

MOVE ' r TO GSOI08-YOKN'ZAN-NON 
END-IF 
END-IF. 

L-W03-GS0 I 08-YOKNZAN-EX I T. 
EXIT. 

i 

* ^ -fe - ->' 

* 

L-W03-GSOI08-MSSGCD1-SEC SECTION. 

3 0 
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L-W03-GSOI08-MSSGCD1-START. 

*— < ^Mmm >— 

IF GSOI08-MSSGCD1 OF W03 NOT = LOW-VALUE 

GO TO L-W03-GS0I08-MSSGCD1-EXIT 
END-IF. 
*— < SB±b£ >— 

*--< asiiLm^ >— 

IF GSOI08-MSSGCD1 OF W03 = LOW-VALUE 
OR GSOI08-MSSGCD1 OF W03 > 0 

ADD 1 TO GSOI08-MSSGCD1-CNT 
IF GSOI08-MSSGCD1-CNT < RECALL-MAX 
MOVE "1* TO RECALL-FLG 

ELSE 

MOVE "1" TO GSOI08-MSSGCD1-NON 
END-IF 
END-IF. 

L-W03-GS0108-MSSGCD1-EXIT. 
EXIT. 

* 

^ 



L-W03-GSOI08-PF3KEY-SEC SECTION. 
L-W03-GSOI08-PF3KEY-START. 

*— < ^mm^ >— 

3 1 
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IF GSOI08-PF3KEY OF W03 NOT = LOW-VALUE 

GO TO L-WO3-GSOI08-PF3KEY-EXIT 
END-IF. 
*— < ^e^feB£ >— 
*— < ^B±^t£L 
*—< ^iLPl^ >-- 

IF GS0I08-PF3KEY OF W03 = LOW-VALUE 
OR GSOI08-PF3KEY OF W03 > 0 

ADD I TO GS0I08-PF3KEY-CNT 
IF GSOI08-PF3KEY-CNT < RECALL-MAX 
MOVE " r TO RECALL-FLG 

ELSE 

MOVE "I" TO GSOI08-PF3KEY-NON 
END-IF 
END-IF. 

L-W03-GSOI08-PF3KEY-EXIT. 
EXIT. 

* 

* 



L-W03-GSO108-PF25KEY-SEC SECTION. 

L-W03-GSOI 08-PF25KEY-START. 

*—< ^Mm-^ >— 

IF GS0108-PF25KEy OF W03 NOT = LOW-VALUE 
GO TO L-W03-GSOI08-PF25KEY-EXIT 
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END-IF. 

*— < ge^^ >— 
*—< s^iim^ >— 

IF GSOI08-PF25KEY OF W03 = LOW-VALUE 
OR GS0I08-PF25KEY OF W03 > 0 

ADD 1 TO GSOI08-PF25KEY-CNT 
IF GSOI08-PF25KEY-CNT < RECALL-MAX 
MOVE " r TO RECALL-FLG 

ELSE 

MOVE "1" TO GSOI08-PF25KEY-NON 
END-IF 
END-IF. 

L-W03-GSOI08-PF25KEY-EXIT. 
EXIT. 

* 

* 

* @%8@ 



Y-W03-@XI6@-@«19§-SEC SECTION. 
Y-W03-i^ I 6i-iX 1 9@-START. 

IF %%l&§-<e%l9^ OF W02 NOT = n20§ 
MOVE m]&@-%%\m OF W02 
TO @%16@-M19@ OF W03 
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END-IF. 
Y-W03-@X 1 1 9e-EXI T. 
EXIT. 

* . 

* 

Y-W03-GSOI08-PASSN01-SEC SECTION. 
Y-W03-GSOI 08-PASSNO 1-START. 

IF GS0I08-PASSN01 OF W02 NOT = LOW-VALUE 
MOVE GSOI08-PASSN01 OF W02 
TO GS0I08-PASSN01 OF W03 

END-IF. 

Y-W03-GSOI 08-PASSNO 1 -EXIT. 
EXIT. 

* 

* 

4t 

Y-W03-GSOI08-CLNAME-SEC SECTION. 
Y-W03-GSOI08-CLNAME-START. 

IF GSOI08-CLNAME-XX OF W02 NOT = .ALL "9" 
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MOVE GSOI08-CLNAME OF ff02 
TO GSOI08-CLNAME OF W03 

END-IF. 
Y-W03-GSOI08-CLNAME-EXIT. 
EXIT. 

* 



Y-W03-GSOI08-YOKNZAN-SEC SECTION. 
Y-W03-GSOI08-YOKNZAN-START. 

IF GSOI08-YOKNZAN OF W02 NOT = LOW-VALUE 
MOVE GSOI08-YOKNZAN OF W02 
TO GSOI08-YOKNZAN OF W03 

END-IF. 

Y-W03-GSOI08-YOKNZAN-EX1T. 
EXIT. 

* 

if 

* -tr — 



Y-W03-GSOI08-MSSGCDI-SEC SECTION. 
Y-W03-GSOI08-MSSGCD1 -START. 

IF GSOIOS-MSSGCDi OF W02 NOT = LOW-VALUE 
MOVE GSOIOS-MSSGCDI OF W02 
TO GSOIOS-MSSGCDI OF W03 
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END-IF. 
Y-W03-GSOI08-MSSGCD1-EXIT. 
EXIT. 

♦ 

+ 

* i^T 

* 

Y-W03-GSOI08-PF3KEY-SEC SECTION. 
Y-W03-GS0I08-PF3KEY-START. 

IF GSOI08-PF3KEY OF W02 NOT = LOW-VALUE 
MOVE GSOI08-PF3KEY OF W02 
TO GSOI08-PF3KEY OF W03 

END-IF. 
Y-W03-GS0I08-PF3KEY-EXIT. 
EXIT. 

» 

^ 



Y-W03-GSOI08-PF25KEY-SEC SECTION. 
Y-W03-GS0I08-PF25KEY-START. 

IF GSOI08-PF25KEY OF W02 NOT = LOW-VALUE 
MOVE GSOI08-PF2 5KEY OF W02 
TO GSOI08-PF25KEY OF W03 

END-IF. 

Y-W03-GSOI08-PF25KEY-EXIT. 
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EXIT. 



PERFORM L-W03-g!t;i68-e!i;i98-SEC. 



PERFORM Y-W03-@!i;i6@-§S!19@-SEC. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 

SOURCE-COMPUTER. AS400. 

OBJECT-COMPUTER. AS400. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 



ORGANIZATION IS INDE.XED 
ACCESS MODE IS DYNAMIC 
RECORD KEY IS E.XTERNALLY-DESCRIBED-KEY 



*— K E 0 — * 



SELECT @5K16@ 



ASSIGN 



TO DATABASE-MI 6@ 
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* WITH DUPLICATES 
FILE STATUS IS @!l!24@. 

*— KE YUS L--* 

* SELECT ASSIGN TO DATABASE-MIS© 

* ORGANIZATION IS SEQUENTIAL 

* ACCESS MODE IS SEQUENTIAL 

* FILE STATUS IS §%2A@. 
DATA DIVISION. 

FILE SECTION. 
FD @%16@ 

LABEL RECORD IS STANDARD. 

01 exiee-R. 

COPY DDS-ALL-FORMATS OF 
01 §X16@-REC. 
COPY 

*******************t*t***:tt ******************** tttttttttit 

WORKING-STORAGE SECTION. 

***************** ********ift *********** t^it:iti*i^t************ 

01 PALETTE-WORK. 

03 PS PIC S9(03) COMP. 
01 WK-FILE-STATUS. 

03 @%24§ PIC X(02). 
01 FILE-STATUS. 

03 @%7@-0PNS PIC X{01). 

03 @S;7@-REDS PIC X(01). 

03 i!K7@-INVS PIC X(02). 

3 8 
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*— <W0 3 HEi7 U TJCMfflTSo 

01 WK-§a;i6@. 
COPY exie©. 

*t***it*tt*******t**t*i*if*****t*tif*t***if ****************** 
LINKAGE SECTION. 
**************** t*************************t***tt********* 

*—< CTRL >--* 

01 CTRL-AREA. 

COPY CTRLAREA. 
*— < W02 >~* 

01 W02-AREA. 

02 W02 OCCURS 5. 
COPY ff0204. 

* --< H® >— 

03 \V02-iS;i6@ REDEFINES INFO. 

COPY @X168. 
03 §!K16§-N0N REDEFINES NON-FLG. 

COPY gxieeN. 

*— < W03 >~* 
01 W03-AREA. 
02 W03. 

* ~< I / Fff $g >— 
03 W03-CNTRL. 



05 RECALL-FLG 



PIC X(l). 



05 RECALL-MAX 



PIC 9(2). 



-< mm >- 



3 9 




wo 99/49387 PCT/JP99/01394 

03 W03-ITEMS. 

04 W03-@X16®. 

COPY §X16@. 
04 W03-FILE. 

COPY 8ail6§. 
04 W03-LIST. 

COPY 6X16©. 

* --< '^l&tLZ^ ^ >— 
03 W03-N0N. 

COPY @S;i6§N. 

COPY exieeN. 
COPY @s;i6eN. 

* --< nm^mn. >— 

03 W03-CNT. 
COPY 
COPY 

COPY %%\mi. 

*—< W04 >— * 
01 W04-AREA. 

02 W04 OCCURS 5. 
COPY W0204. 

* — < lariS >— 

03 W04-§«16@ REDEFINES INFO. 
COPY 

03 OPTION-IDX-DEF REDEFINES OPTION-IDX. 
COPY §'5K16@C. 

4 0 
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*--< WFL >-- 
01 WFL-AREA. 

03 FILLER PIC X(01). 

i*ttt****t***********t**iH:ttitif ********************** ttt 

PROCEDURE DIVISION USING CTRL-AREA 

W02-AREA 
W03-AREA 
W04-AREA 
WFL-AREA. 

* **************************** 

* * MA I N * 

* ********t***t****t*t******** 

MAIN-SEC SECTION. 
MAIN-START. 

*— < mmm >— 

PERFORM INIT-PROC. 

*— < {ifflS* >— 

PERFORM Y-PROC. 

*— < mmmm >— 

PERFORM UNTIL RECALL-FLG = SPACE 

MOVE SPACE TO RECALL-FLG 
PERFORM L-PROC 
END-PERFORM. 
*--< Pwrite 

PERFORM I0-WG3-WT*-SEC. 
PERFORM IO-W03-UP*-SEC. 
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*--< ^iaii >— 

PERFORM FIN-PROC. 
MAIN-END. 

EXIT PROGRAM. 

* * ntimm * 

* ****************** 

INIT-PROC SECTION. 
I NIT-START. 

*— < wmm >— 

INITIALIZE PALETTE-WORK. 
INITIALIZE WK-FILE-STATUS. 
INITIALIZE FILE-STATUS. 
MOVE SPACE TO FLAME-FLG OF CTRL-AREA. 

MOVE 05 TO RECALL-MAX. 

MOVE HIGH-VALUE TO RECALL-FLG. 
*— < X7^-->'N o . >— 

MOVE STAGE-NO OF CTRL-AREA TO PS. 
IF (PS < 1) OR (PS > 5) 

MOVE "STAGEERR" TO MSG-NO 
END-IF. 

*— < mmmm " ^" <Dmm >— (low-value / all* 9' ) 

MOVE LOW-VALUE TO WK-@Sil@. 

< WO 3 ^" (Dm^ >— (LOW-VALUE / ALL' 9" ) 
MOVE LOW-VALUE TO WK- ITEMS. 

MOVE WK-Mlg TO W03-@«l@. 

4 2 
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*--< wmit >- 

INITIALIZE W03-NON. 
INITIALIZE W03-CNT. 
INIT-EXIT. 
EXIT. 

* ********************* 

* * &^^m * 

* ********************* 

Y-PROC SECTION. 
Y-START. 
*— < SXli 

COPY 8X1§. 
Y-EXIT. 

EXIT. 

* ******************** 

* * mmwm * 

* ******************** 

L-PROC SECTION. 
L-START. 



*-< 
COPY 
L-EXIT. 
EXIT. 

* ******************** 

* * m^iM * 

* *******************it 
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FIN-PROC SECTION. 
FIN-START. 
*— < y 7 ^ )V CLOSE > 
FIN-EXIT. 



EXIT. 



— < easie 

COPY 



* ^^WM - section^ * 

* m^WM - sections? * 



-< 



COPY 9X19. 

♦ FILE I/O * 

****************** 

*********tt:********* 

************i^1ft***** 

— < -> — y > •> )l READ ? 9X89 >— 
10-W03-@!I!7@-SEC SECTION. 
I0-W03-@«7@-START. 

IF i;«7i-0PEN NOT = " r 

OPEN INPUT 

4 4 



wo 99/49387 



PCT/JP99/01394 



MOVE ■ r TO M7e-0PNS 

END-IF. 

READ 6X169 AT END 

MOVE "E" TO F-END 

GO TO I0-W03-8X7@-EXIT 

END-READ. 
IO-W03-eX7@-EXIT. 
EXIT. 

*--< KEY READ ? 8X8©>— 
IO-W03-@X7@-SEC SECTION. 
I0-W03-@X7@-START. 

IF @X79-0PNS NOT = " 1" 

OPEN INPUT e»;i6@ 
MOVE " 1" TO @X7g-0PNS 

END-IF. 

IF §«78-REDS NOT = " I" 

READ @«I6§ INVALID 

MOVE ' IV TO iX7@-INVS 
GO TO IO-W03-@!>;7@-EXIT 

END-READ 

MOVE "1" TO @«7@-REDS 

I0-\¥03-@SK7@-EXlT. 
EXIT. 

* — ^ > 
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*--< %%s§ >-- 

I0-W03-@X7@-SEC SECTION. 
I0-W03-§X78-START. 

IF exye-oPNS not = • r 

OPEN OUTPUT en! 16® 

MOVE " 1" TO eSi7§-0PNS 

END-IF. 

WRITE @!t;i6§-REC INVALID 

MOVE " IV" TO @a;7§-INVS 

GO TO I0-W03-@!K78-EXIT 
END-WRITE. 
I0-W03-@X78-EXIT. 
EXIT. 

* * 3e^-y-:7*;u-^> 

IO-W03-e«7i-SEC SECTION. 
I0-W03-@!«7@-START. 
*— < KEY READ ? @«88 >— 

IF i%7@-0PNS NOT = "1" 

OPEN I-O exi6§ 
MOVE "1' TO @!t;7@-0PNS 

END-IF. 

* — < k e y 

MOVE WFL-RD?-KEY-#I TO k e y m^-^r 
READ INVALID 
4 6 
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MOVE 'IV TO §%7%-mS 
GO TO IO-W03-§3;7@-EXIT 

END-READ. 
*— < UPDATE ? 8X80 >-- 

IF eX7@-INVS NOT = • IV 

REWRITE @a;i6@-REC INVALID 

MOVE "IV TO §3;78-INVS 
GO TO I0-W03-@X7@-EXIT 

END-REWRITE 
END-IF. 
IO-W03-eX7e-EXIT. 
EXIT. 



%24« %16 + STS. 
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